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l Instrucciones. 
Tipos 


ASICAMENTE las ins- 
trucciones son con- 
juntos de caracteres 
que representan ór- 
denes de un lenguaje 
de programación y 
que se da a un orde- 
nador para que eje- 
cute una o varias funciones u operacio- 
nes. 

Todas las instrucciones contienen dos 
partes tundamentales: 


— Código de operación. Indica a la 
Unidad de Control la operación que tie- 
ne que realizar. 


— Dirección de los operandos. Indica 
dónde están situados los datos que tiene 
que manejar para ejecutar la instrucción 
deseada. 

En cuanto al número de instrucciones 
que puede realizar un ordenador, varía 
de unos a otros. Esta colección de ope- 
raciones se denomina juego o repertorio 
de instrucciones. 

El número de instrucciones suele osci- 
lar entre unas 20 para ordenadores muy 
sencillos y unas 200 para los más poten- 
tes, aunque lo normal son 100. 

Los distintos tipos de instrucciones son 
los siguientes: 


— Instrucciones de tres direcciones. 


DIRECCION | DIRECCION 
CODIGO DE DEL DIRECCION 
SEGUNDO DEL 


OPERANDO | OPERANDO ¡RESULTADO 


OPERACION 


Instrucción de tres direcciones. 


INFORMATICA BASICA 


INSTRUCCIONES Y PROGRAMAS 


Como vemos en la figura, los campos 
intermedios indican las direcciones de 
memoria donde se encuentran almace- 
nados los operandos, y en el tercer cam- 
po se encuentra la dirección de dónde 
se almacenará el resultado de aplicar la 
operación indicada por el código de 
operación sobre ambos operandos. 


— Instrucciones de dos direcciones. 


DIRECCION 
CODIGO DE DEL 


DIRECCION DEL 
PRIMER SEGUNDO OPERANDO 
OPERANDO Y DEL RESULTADO 


LA | Instrucción de dos direcciones. 


En este caso sólo se indica la dirección 
del segundo y el tercer operando, ya 
que el resultado de operar sobre ellos se 
almacenará en la misma dirección don- 
de se encontraba el segundo; es decir, 
una vez realizada la operación no podre- 
mos recuperar el valor del segundo ope- 
rando, ya que habrá quedado «macha- 
cado» al introducir el resultado. 


OPERACION 


— Instrucciones de una dirección. 


CODIGO DE 
OPERACION 


Instrucción de una dirección. 


DIRECCION DEL PRIMER 
OPERANDO 


En los ordenadores que utilizan instruc- 
ciones con este formato se recurre a la 
utilización de registros internos en la má- 
quina que contendrán el valor del segun- 
do operando; de entre todos estos regis- 
tros el más importante es el llamado acu- 
mulador (registro especial de la Unidad 
Aritmético-Lógica). 


LISTAR 
ALBARANES 


ACUMULAR 
VENTA REALIZADA 
Y REGISTRAR 
PEDIDO 


DOCUMENTO 
ORDEN DE 
SALIDA DEL 
PEDIDO 


ACTUALIZAR 
SITUACION DEL 
CLIENTE EN 
FICHERO CLIENTES 


[A Organigrama simplificado de facturación. 
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— También existen las instrucciones 
de cero operandos, que no suelen utilizar- 
se para operaciones aritméticas. 

Podemos realizar otra clasificación de 
las instrucciones de acuerdo a la opera- 
ción que realizan: 


— Aritméticas. Suelen realizar las ope- 
raciones de suma y resta de operandos, 
aunque también hay veces que incluso 
pueden multiplicar y dividir. 

— De traslación. Se utilizan para reali- 
zar transferencias de información, es de- 
cir, pueden mover datos de un registro a 
memoria, de memoria al acumulador, 
etcétera. 


— De bifurcación. Sirven para romper 
la secuencia del programa. Dentro de 
este grupo podemos distinguir: 


— Condicionales. Sólo efectúa la bifur- 
cación si se cumple una cierta condi- 
ción. 

— Incondicionales. Se efectúa el salto 
a una instrucción almacenada en la me- 
moria sin dependencia de los hechos 
ocurridos en el programa. 


— De interrupción. Sirven para que el 
programa deje de ejecutarse. Por ejem- 
plo, la instrucción de fin de programa. 


-— De entrada o salida. Se encargan 
del trasiego de los datos desde el orde- 
nador hacia los dispositivos periféricos o 
viceversa. 


ADD 
ú SUB 
Aritméticas MULTIPLY 
DIVIDE 
. MOVE Ac, B 
Instrucciones Traslación MOVB 


Condicionales 
incondicionales 
De interrupción 

De entrada/salida 


Bifurcación 


i Clasificación de las instrucciones por el 
tipo de operación. 


Algoritmos 


Se llama algoritmo al conjunto de pa- 
sos necesarios para la resolución de un 
problema. A veces no se ve muy clara la 
diferencia entre algoritmo y programa, 
ya que ambos son descripciones detalla- 
das de los pasos para solucionar un pro- 
blema; sin embargo, en un caso (algorit- 


mo) el ordenador no puede ejecutar di- 
rectamente estos pasos; en el caso del 
programa sí son ejecutables por el orde- 
nador. 

Los algoritmos se pueden representar 
de tres formas distintas: 

— Mediante la descripción literal. 

— Detallando cada uno de los pasos 
para resolver el problema. 

— Mediante organigramas. 


[A Ejemplo de un programa seguido por orga- 
nigrama. 


Organigramas 


Un organigrama es la representación 
gráfica de la secuencia de un programa, 
o de la resolución de un problema. Se uti- 
lizan no sólo en programación, sino tam- 
bién en cualquier tarea de la vida coti- 
diana. 

Hay dos tipos de organigramas: 

— Estáticos u organizacionales. Se 
suelen utilizar para representar la estruc- 
tura jerárquica de una empresa. 

— Dinámicos. Son representaciones 
gráficas del sistema del proceso de infor- 
mación y facilitan la labor de análisis. 
Dentro de este grupo se encuentran: 

— Los organigramas de sistemas. En 
los que se indican las entradas y salidas 
de información con sus soportes y archi- 
VOS. 

— Los ordinogramas u organigramas 
de programas. Representan con detalle 
los pasos necesarios para realizar el tra- 
bajo de programación. 


Programas 


Un programa se puede definir como un 
conjunto de sentencias (incluyendo las 
de definición de datos y ejecución) que 
se ejecutan por un ordenador para resol- 
ver el problema. 


1,T. COMPRAS 10.000 
40.000 1.T. COMPRAS 
1.7. COMPRAS 100.000 


AR 
| DESCUENTO 5% 3 3 3 | 
| DESCUENTO 10% | 
DESCUENTO 45% |[|x|—|-—|-—| 
NO DESCONTARZ >> I—| x|—|-—| 


[A Tabla de decisión. Otra técnica de ayuda 
a la programación. 


Estructura de los programas 


Realmente los programas se ejecutan 
en el ordenador de forma secuencial, 
unas instrucciones detrás de otras; sin 
embargo, hay veces en que no desea- 
mos que la instrucción que viene a con- 
tinuación sea la siguiente en ejecutarse. 
Para ello, como vimos antes, existen los 
llamados «saltos», que son instrucciones 


que hacen que se rompa la secuencia 
del programa, yendo a ejecutar instruc- 
ciones que se encuentran en otro lugar 
del programa. Los saltos pueden ser con- 
dicionales o incondicionales. 

Los bucles son estructuras del progra- 
ma que hacen que las instrucciones en- 
cerradas en ellos se ejecuten un número 
repetido de veces. El caso más interesan- 
te es cuando el bucle se controla me- 
diante un índice, el cual se modifica, en 
cada pasada, en una cantidad cons- 
tante. 

Una tercera estructura de programa 
consiste en la técnica de decisiones múl- 
tiples. Simboliza la posibilidad de elec- 
ción entre varios caminos. 


Técnicas y documentación 
de los programas 


Una vez que el problema ha sido re- 
suelto por parte de los analistas, empie- 
zan a aparecer conceptos como: fiche- 
ros, cantidad, organizaciones, etc. Todo 
este conjunto de ideas informáticas que- 
da plasmado en lo que se denominan 
cuadernos de carga, que contienen la 
descripción detallada de toda la aplica- 
ción, y mediante los cuales los progra- 
madores realizan su tarea. 

La descripción de lo que es en sí cada 
programa se puede realizar mediante 
lenguaje natural, a modo de comenta- 
rios, o utilizando diagramas de bloques, 
tablas de decisión u organigramas. 


COMMODORE 64 


Comandos 
de 
almacenamiento 


ON los comandos 
opuestos a los co- 
mandos de carga, es 
decir, se trata de al- 
macenar un número 
en la memoria desde 
uno de los registros 
de trabajo del proce- 
sador. Presentan el siguiente formato: 


STA 
STX 
STY 


Están disponibles los mismos modos de 
direccionamiento, con excepción del di- 
reccionamiento inmediato, ya que siem- 
pre necesitamos una posición de memo- 
ria donde almacenar el contenido del re- 
gistro con el que estemos trabajando. Su 
equivalente en BASIC es la instrucción 
POKE. 

Una cuestión importante y diferencia- 
dora de los comandos de almacena- 
miento sobre los de carga es que con los 
primeros, que son los que estamos estu- 
diando ahora, no se alteran los flags del 
registro de estado del procesador, ya 
que lo único que se hace es transferir el 
valor desde el registro correspondiente a 
una posición de memoria. ¡Pero el regis- 
tro no se altera! 

A continuación se exponen los códigos 
de los comandos según los modos de di- 
reccionamiento utilizados. 
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Absoluto $8E | $8C|STASCOOO 
Zeropage 

¡ Absoluto indexado por X 
Absoluto indexado por Y 
Zeropage indexado por X 
Zeropage indexado por Y 
Indirecto indexado en Y 
Indirecto indexado en X 


— |STA(SBB, *% 


Bueno, creo que ha llegado el momen- 
to de hacer algo en código máquina y 
así tomar un respiro en cuanto a teoría. 

Será algo muy sencillo y que puede 
que no sea de gran utilidad, pero al me- 
nos servirá para ilustrar lo que hemos vis- 
to hasta ahora. 

Vamos a intentar que aparezca en 
pantalla el letrero «COMMODORE 64». 

Para ello, lo primero que hacemos es 
cargar, por ejemplo, el ACU con el núme- 
ro correspondiente a la C, que, como 
puede verse en cualquier manual que 
presente un listado de los códigos de 
pantalla y códigos ASCII, tiene el valor 
67=$43. 

A continuación almacenamos dicha 
letra en una posición de la memoria que 
esté dentro de la RAM de vídeo 
(1024-2023). 

Este proceso lo repetimos para todas 
las letras y habremos terminado. 

Si además quiere que el borde, fondo 
y dibujo, tengan un determinado color, 
basta con que altere el valor de las po- 
siciones de memoria: 


53280 = $D020 borde 
53281 = $D021 fondo 
646 = $0286 dibujo 


Al final debe quedar algo así: 


LDA X$00 
STA $DO20 
STA $D021 
LDA f$01 
STA $0286 
LDA $43 
LDX 84D 
LDY 4$4F 
STA $05FO 
STY $05F1 
STX $05F2 
STX $05F3 
STY $05F4 
LDA ¿$44 
STA $05F5 
STY $05F6 
LDA 4852 
STA $05F8 
LDA 4820 
LDX 4836 
LDY 4$34 
STA $05F9 
STX $05FA 
STY $05FB 


No intente introducirlo tal y como está, 
pues no funcionaría con ese formato. 

Vamos a desglosar tan sólo la primera 
parte que pone borde y fondo de color 
negro, y dibujo de color blanco. El resto 
del programa, aunque es correcto, no se 
haría en la práctica así, ya que, como 
puede verse, todos los STA son posicio- 
nes consecutivas de memoria, y sería 
mucho más fácil y corto hacerlo median- 
te un bucle. Por tanto, lo dejaremos para 
cuando veamos los comandos de incre- 
mento y bifurcación. 


10 FOR A=49152 TO 49164 
20 READ B:POKE A,B 
30 NEXT 


Teclee este programa y ejecútelo con 
RUN. A continuación teclee en modo di- 


100 DATA 169,0,141,32,208,141,33,208,169,1,141,134,2 


. LDA 4$00 $A9 $00 
STA $D020  $8D $20 $DO 
STA $D021  $8D $21 $DO 
LDA ¿$01 $A9 $01 
STA $0286  $8D $86 $02 


Si tomamos los códigos de comando, 
nos quedaría la siguiente serie de núme- 
ros en hexadecimal: 


SA9, $00, $8D, $20, $DO, $8D, $21, $DO, 
SA9, $01, $8D, $86, $02 


Haciendo la transtormación a decimal 
se obtiene: 


169, 0, 141, 32, 208, 141, 33, 208, 169, 
1, 141, 134, 2 


Ahora ya sólo queda introducir estos 
datos consecutivamente a partir de una 
determinada posición de memoria, y lla- 
mar a la rutina con SYS. 

¿Dónde almacenar nuestra rutina en 
código máquina? 

Hay varias zonas en las que podríamos 
hacerlo, pero de momento vamos a res- 
tringirnos al área comprendida entre 
49152 = $C000 y 53247 = $CFFF, la cual 
representa 4 Kbytes, más que suficien- 
tes para un programa en lenguaje má- 
quina. 

He de decir que esta zona es área BA- 
SIC; por tanto , su rutina permanecerá ahí 
aunque borre su programa BASIC con 
NEW, ya que este comando, salvo que 
hayamos alterado ciertas variables en la 
página cero, «borrará» sólo desde la po- 
sición 2049=50801 hasta 40959=$9FFF. 

Bueno, pues «guardemos» la rutina. 


recto SYS 49152 y verá cómo la pantalla 
se vuelve negra y el cursor blanco. Tam- 
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bién puede incluir una línea 40 SYS 
49152, y al teclear RUN producirá el mis- 
mo efecto. 

Una aclaración antes de terminar: 


—¿Qué ocurre cuando el procesador 
llega a la posición 49162? Pues que car- 
ga el contenido de la siguiente posición 
de memoria y la interpreta como un có- 
digo de comando, ya que nadie le ha di- 
cho que pare, que ya se ha terminado la 
rutina. Para comunicárselo debemos in- 
troducir el comando RTS al final de toda 
rutina en lenguaje máquina, que es equi- 
valente al comando RETURN en BASIC y 
cuyo código es 96 = $60. 


Así, pues, añadimos un «dato» más que 
es el número 96, modificamos el número 
49164 a 49165 en la línea 10 y todo arre- 
glado. 


| Ensambladores y monitores 


Evidentemente no es necesario hacer 
todo el trabajo de buscar los códigos de 
los comandos con los que trabajamos, 
transferirlos al sistema decimal y crear un 
programa BASIC que los introduzca en 
memoria mediante sentencias READ y 
POKE. Para ello existen programas que 
aceptan los comandos que estamos 
aprendiendo y que se encargan de 
transformarlos para que puedan ser inter- 
pretados por el procesador. El programa 
que necesitamos es un «Assembler» y el 
lenguaje que nos ocupa es «lenguaje en- 
samblador». 


Un «Assembler» suele ser una parte de 
un programa más grande llamado «Moni- 
tor» que consta de: 


— Assembler. 
— Disassembler. 
— Monitor. 


El Assembler ya hemos visto que sirve 
para que el ordenador entienda los co- 
mandos en lenguaje ensamblador. 


El Disassembler es el programa opues- 
to al anterior. Lee un programa que está 
en memoria y lo visualiza en la forma que 
estamos viendo (LDA, STA...). 

De la misma manera se pueden desen- 
samblar zonas de memoria que no sean 
necesariamente programas, como la pá- 


gina cero, el sistema operativo o el intér- 
prete BASIC. Es lo que suele decirse «ver 
las tripas del ordenador». 


El monitor propiamente dicho puede 
controlar los registros del procesador de 
manera directa, así como modificar la 
memoria, arrancar programas en Assem- 
bler y efectuar las operaciones de gra- 
bación y carga desde los periféricos. 


Además, suele tener una serie de co- 
mandos propios más o menos potentes, 
según el monitor del que se trate. 


Para finalizar este capítulo no estará de 
mas el siguiente esquema general de la 
distribución de la memoria de su C-64. 


(1) Página cero. Ahí se encuentran los 
apuntadores BASIC así como algunas va- 
riables del sistema. Hay algunas posicio- 
nes no utilizadas por el sistema y que le 
pueden servir para guardar datos prote- 
gidos por el comando NEW. Son las si- 
guientes: 2, 678-767, 820-827, 828-1023 
(siempre que no utilice el cassette) o 
2024-2039. 


(2) Resto de variables, con algunos 
registros libres que ya se han incluido en 
(1). 1024-2023 RAM de vídeo (pantalla). 


(3) Area BASIC. 


(4) a.RAM que está solapada con la 
ROM del intérprete BASIC. Si desconecta- 
mos el intérprete podremos trabajar en 
esta zona, pero el ordenador ya no po- 
drá entender las palabras BASIC. 


(4) Db. Interpretador BASIC. 


(5) Area libre. Es el lugar ideal, aun- 
que no el único, para guardar los progra- 
mas en lenguaje máquina. 


(6) a. Area libre pero solapada con la 
ROM de caracteres y la ROM de entra- 
da/salida. 


Para trabajar en esta zona habrá que 
desconectar las dos últimas. 

(6) b. ROM de caracteres. 

(6) Cc. Area de entrada/salida. 


(7) a. Area libre debajo de la ROM del 
sistema operativo. 


(7) b. Sistema operativo. 


40960 


49152 


53247 


57334 


65535 


Programa: 
a Agenda 


telefónica 


STE programa, que ya 
apareció en su ver- 
sión para IBM en un 
tomo anterior, nos va 
a permitir la creación 
de nuestra propia 
agenda de teléfonos 
con los siguientes da- 


tos: 


LA Información que podemos almacenar 
4 con este programa. 


— Nombre de la persona. 
— Apellidos de la persona. 
— Dirección. 

— Ciudad. 

— Código postal. 

— País. 

— Número de teléfono. 


Con este programa podremos introdu- 
cir nuevas personas con su dirección y su 
teléfono, buscar datos sobre una de ellas 
y cambiarlos, buscar todas las personas 


PROGRAMAS 
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cuyo nombre empiece por una determi- 
nada letra, borrar a una persona y listar 
todas las personas por la impresora. 


Menú del programa con las distintas 
opciones que ofrece. 


Si queremos imprimir todas las perso- 
nas por impresora, podemos hacerlo de 
tres maneras: 


— Sólo el nombre. 

— El nombre y el telefono. 

— El nombre, la dirección y el telefo- 
no. 


o Soya QUIERES, PANTALLA O IMPRESORA CP/1)> 


OPCIONES 


3 — RUBRO TEMES y reus 


¿QUÉ OPCIOM QUIERES? 


TI 
"QU Menu de impresión. 


El programa que se vio en la versión 
para IBM utilizaba ficheros de acceso di- 
recto. Este utiliza ficheros secuenciales 
para que el programa pueda servir para 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


INE 
REM * xk 
REM * AGENDA TELEFONICA ES 
REM * k 
REM * POR: PETER BERGMANN k 
REM * k 
REM ASS SSO SS lS SOS jSSO SISSI jalo ROK 
REM *x * 
REM x VARIABLES k 
A A k 
REM *x k 
REM *x T5$ ARRAY DE PERSONAS k 
REM *x F$ NOMBRE DEL FICHERO k 
REM * N$ REPUESTA FICHERO NUEVO  x*x 
REM * M$ RESPUESTA (S/N) k 
REM *x I NUMERO DE REGISTROS *k 
REM * M OPCION DEL MENU k 
REM * J,K,L CONTADORES k 
REM * W$,E$ APELLIDO Y NOMBRE k 
REM x C$ RESPUESTA PARA CONTINUAR* 
REM * S$,J$ MANIPULADORES DE STRING *x 
KEM + LG CONTADORES * 
REM x X3 FLAG PARA REGISTROS k 
REM x J NUMERO DE REGISTRO k 
REM *x JT PUNTERO REGISTRO ARRIBA * 
REM *x JM PUNTERO REGISTRO MEDIO  *x 
REM *x JB PUNTERO REGISTRO ABAJO  * 
REM *x H$ LETRA PARA BUSCAR k 
REM x*x P NUMERO DE PAGINAS k 
REM x G$ OPCION PANTALLA/IMPRES. *X 
REM x*x U OPCION DE IMPRESION k 
REM *x N NUMERO DE REGISTROS * 
REM x k 
REM ASSaSSS SS SOS ESOO lll jolla Jok 
REM 

REM *xxx*x CABECERA xxx 

REM 

KEY OFF 

CLS 

PRINT  MadiaSSE SES Ojala olaa look dk" 


FOR>1-.= 1 T0"19 
PRINTS "5. TAB(AO), - =N* 
NEXT I 


PRINT MaS OOOO lO Olla Ojala lalalala jojolajojolok ' 


todos los demás ordenadores. No hay 
que decir que el programa también fun- 
ciona en el IBM sin necesidad de realizar 
ningún cambio. 


LOCATE 8,12: PRINT "AGENDA TELEFONICA 


LOCATE 9,11: PRINT ..”--'->- A 
LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 


REM 


REM **x* DECLARACION DE ARRAYS E INICIALIZACION *x*x* 


REM 
DIM T$(200, 6) 
FOR I = 1 TO 200 

FOR J = 1 TO 6 

LET T$(1,J) = " 

NEXT J 
NEXT I 
REM 
REM SSSS SISSI ROSSO lOIOIOIOJoOK 
REM * NOMBRE DEL FICHERO A USAR *xx 
EOS 
REM 
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1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


CLS 

LOCATE 2,1: PRINT "(COMO SE LLAMA EL FICHERO ”; 
INPUT F$ 

LOCATE 4,1: PRINT "EL NOMBRE ES ";F$ 

LOCATE 6,1: PRINT "(ES UN FICHERO NUEVO (S/N)"; 
INPUT N$ 

IF N$ = "N" THEN GOTO 1690 

IF N$ <> "S” THEN GOTO 1650 

LOCATE 8,1: PRINT "(ESTA CORRECTO (S/N)"; 

INPUT M$ 


IF M$ = "N" THEN GOTO 1610 

IF M$ <> "S" THEN GOTO 1690 

LET I=0 

IF N$ = "S" THEN GOTO 1990 

REM : 

REM Aaa OSOS lSIO SOS lSIOIO SSI lSSS Ello OJOJO 


REM * LECTURA DEL FICHERO EXISTENTE * 
REM AASSMSOSO Oda iaa jajaa aaa lalala ialalalajalajojokok 
REM 
CLS 
PRINT "PON EL CASETE EN PLAY Y ...” 
PRINT: PRINT 
PRINT "PULSA ENTER"; 
LET C$=INPUT$(1) 
CLS 
PRINT "LEYENDO EL FICHERO “;F$ 
OPEN F$ FOR INPUT AS $1 
IF EOF(1) THEN GOTO 1930 
LES DD = +1 
FOR J = 1 70 6 
LINE INPUT 81, T$(1,J) 
NEXT J 
CLOSE $1 
CL 
PRINT "FICHERO LEIDO" 
PRINT: PRINT 
PRINT "PULSA ENTER" 
LET C$=INPUT$(1) 


REM 

REM ASSaSNMSOOS OOO OOO lola kok 

REM xxx "MENU: xxx 

REM AMONIO OSO lol” jajajok 

REM 

CLS 

LOCATE 3,18: PRINT "MENU" 

LOCATE 4,17: PRINT "----- a" 

LOCATE 6,12: PRINT "1 - INTRODUCIR PERSONA” 


LOCATE 7,12: PRINT "2 - BUSCAR/CAMBIAR PERSONA" 
LOCATE 8,12: PRINT “3 - BUSQUEDA" 
LOCATE 9,12: PRINT "4 - BORRAR PERSONA" 
LOCATE 10,12: PRINT “5 - LISTAR TODAS" 
LOCATE 11,12: PRINT "6 - SALIR" 
LOCATE 14,1: PRINT "(QUE ELIGES (1-6) ”; 
LET M=VAL(INPUT$(1)) 
IF (M< 1) OR (M > 6) GOTO 2030 
ON M GOSUB 2460, 3380, 3950, 4220, 3800, 2190 
GOTO 2040 
REM 
REM ASSSSSSOSO SiS dok 
REM * TERMINAR EL PROGRAMA * 
REM ASOMO OSOS OOO lojolodok 
REM 
LS 
PRINT “PREPARA EL CASETE PARA GRABAR Y ..." 
PRINT: PRINT 
PRINT "PULSA ENTER" 
LET C$=INPUT$(1) 
CLS 
PRINT “GRABANDO EN EL FICHERO ";F$ 


es 


REM * DISECT KEY *x 


4 


REM ASSIM Ojok 
REM 

ET $5 2 19d, 1) 

LET L = LEN(S$) 

LET Q = INSTR(S3 , 
LETL.=L'-0Q 
LETQ=Q-i 

LET W$ = LEFT$(S$,Q) 
LET E$ = RIGHT3(S$,L) 
RETURN 

REM 

REM ASS ojo dodo ok 


REM * FICHA YA EXISTENTE * 
REM SOS OO llo lalolo dol 


GOTO 2670 


OPEN F$ FOR OUTPUT AS $1 
FOROS E TO" 
IF T$(J,1) = " " THEN GOTO 2360 
FORK =17T0 6 
PRINT $1, T$(J,K) 
NEXT K 
NEXT J 
CLOSE $1 
CLS 
PRINT "INFORMACIÓN GRABADA EN EL FICHERO ";F$ 
PRINT 
PRINT 
PRINT "ADIOS..." 
KEY ON 
END 
REM 
REM MaS SSI IIllOIOJOK 
REM + INTRODUCIR PERSONA * 
O REM Scala lolo lolld lalo jajok 
REM 
CLS 
PRINT "PARA SALIR PULSE *X” EN EL NOMBRE” 
PRINT 
LINE TNPUT “NOMBRE "WS 
IF W$ = "X" THEN GOTO 2670 
IF W$ = "" THEN GOTO 2500 
LINE INPUT "APELLIDOS: ";E$ 
GOSUB 2730 
GOSUB 3240 
IF X$ = "D" GOTO 2680 
LINE INPUT “DIRECCION: ";T$(J,2) 
LINE INPUT "CIUDAD ";TS$(J3,3) 
LINE INPUT "CODIGO "5T$(J, 4) 
LINE INPUT "PAIS "5TS$(J,5) 
LINE INPUT "TELEFONO : ";T$(J,6) 
IF 1 = 201 THEN PRINT "FICHERO LLENO”: 
GOTO 2500 
RETURN 
CLS 
PRINT "FICHA IGNORADA"; : INPUT C$ 
GOTO 2460 
END 
REM 
REM SSA ISS IJSISJOJVIOIOJOK 
REM * ASSEMBLE KEY x 
REM Adol ISO IOISISJOJOK 
REM 
LET S$ = 
LET W$ = W$ + S$ 
LET W$ = W$ + ES 
RETURN 
REM 
REM ooSSolololololololok 
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2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 


REM 


LET X$ - "D" 


REM 
RETURN 
REM 


REM SMS IS SloSSIS lolo lolo 


REM * BUSCAR REGISTROS * 
REM SSI lOlolOolOio KK 


REM 
LET "X$ = 


IF W$ 
IF W$ 
IF W$ 
LET JT = 1 


MM. 


"N . 
IF (W$ < T$(1,1)) OR (I = O) THEN LET J = 1: GOTO 3220 


T$(1,1) THEN LET J 
T$(1,1) THEN LET J 
T$(I1,1) THEN LET J 


I + 1: GOTO 3220 
1: GOSUB 2950: GOTO 3220 
I: GOSUB 2950: GOTO 3220 


IF 1 > O THEN LET JM = INT((1+1)/2)* 


LET IB = 1 
IF X$ <> ” 


N" 


THEN 


GOTO 3210 


IF W$ > T$(JM,1) THEN LET JB = JM 
IF W$ < T$(JM,1) THEN LET JT = JM 
T$(JM, 1) THEN GOSUB 2950: GOTO 3210 
INT((JT + JB + 1)/2) 
JT) OR (JM = JB) THEN LET X$ = "F" 


IF W$ = 
LET JM = 
IF (JM = 
LET J = JM 
RETURN 
REM 


REM ss S OSOS lOlOIOIOIOJOK 


REM * INSERTAR NUEVO REGISTRO * 
REM OSOS SlSIO SOS lSIOlO SO lOIOIO OOO OOO 


REM 
GOSUB 3030 
IF X$ = "D" THEN GOTO 3370 
LEK-1-= 1 + 1 
FOR K = 1 TO J STEP -1 
FOR L = 1 TO 6 
LET TS$(K,L) = T$(K-1,L) 
NEXT L 
NEXT K > 
LET T$(J3,1) = W$ 
RETURN 
REM 
REM ASS iodo dok 


REM * LOCALIZAR PERSONA * 
REM ARSS ISO lSlalolololololololok 


REM 
CLS 


LOCATE 3,14: PRINT "LOCALIZAR PERSONA" + 
LOCATE 5,1: 


INPUT W$ 


LOCATE 6,1: 


INPUT E$ 
GOSUB 2730 
GOSUB 3030 
CLS 


IF X$ <> "D" 


GOSUB 2820 


LOCATE 2,2: 


LOCATE 3 
LOCATE 4 
LOCATE 5 
LOCATE 6, 
LOCATE 7 
LOCATE 8, 
TRIM <> 2 


TH 


IF M$ = “S" 
IF M$ <> "N" GOTO 3620 


PRINT 


PRINT 


THEN 


PRINT 


PRINT ” 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


" (NOMBRE IS 


"(APELLIDOS: "; 


LOCATE 7,12: PRINT "FICHA NO ENCONTRADA": 
"NOMBRE ";W$ 
"¡ES 


"DIREC. ";T$(J,2) 
“CIUDAD ";T$(J,3) 
"CODIGO ";T$(J, 4) 
“PAIS “;T3(J,5) 
"TELEF. “;T$(J,6) 


EN GOTO 3770 
LOCATE 14,2: PRINT "(QUIERES CAMBIAR ESTA FICHA (S/N)"; 
LET M$=INPUT$(1) 


THEN GOSUB 4490: GOTO 3530 


GOTO 3720 


3660 LOCATE 14,2: PRINT SPACE$(38) 

3670 LOCATE 14,2: PRINT "(QUIERES IMPRIMIR ESTA FICHA (S/N)"; 
3680 LET M$=INPUT$(1) 

3690 IF M$ = "S" THEN GOSUB 4640: GOTO 3710 
3700 IF M$ <> "N" GOTO 3660 

3710 LOCATE 14,2: PRINT SPACE$(38) 

3720 IF M <> 2 THEN GOTO 3770 

3730 LOCATE 14,2: PRINT "(BUSCAMOS MAS (5/N)"; 
3740 LET M$=INPUT$(1) 

3750 IF M$ = "S" GOTO 3430 

3760 IF M$ <> "N" GOTO 3730 

3770 RETURN 

3780 REM 

3790 REM AMoSolOISdlOlOOJojdoK 

3800 REM * IMPRIMIR + 

3810 REM docmadoldolook 

3820 REM 

3830 GOSUB 4760 

3840 LET P = 1 

33850 CLS 


3860 LOCATE 1,14: PRINT "LISTADO DE NOMBRES" 


3870 FOR J = 1 TO 1 

3880 IF M <> 3 THEN GOSUB 5000 
3890 IF M= 3 THEN GOSUB 4150 
3900 NEXT J 

3910 PRINT 


3920 PRINT "PULSA ENTER" 

3930 LET C$=INPUT$(1) 

3940 RETURN 

3950 REM 

3960 REM AMOS daa io iaa Ola IMiOlOIO OOOO OK 

3970 REM * BUSQUEDA POR UNA LETRA * 

3980 REM ASS jololook 

3990 REM 

4000 CLS 

4010 LOCATE 2,12: PRINT "BUSQUEDA POR LETRA" 
4020 LOCATE 4,1: PRINT "PRIMERA LETRA DEL NOMBRE "; 
4030 INPUT H$ 

4040 CLS 

4050 LOCATE 2,16: PRINT "NOMBRES CON ";H$ 
4060 PRINT :PRINT 

4070 GOSUB 3870 

4080 PRINT : PRINT 

4090 PRINT “(BUSCAMOS MAS (S/N): "; 

4100 LET M$=INPUT$(1) 

4110 IF M$ = "S" THEN GOTO 3990 

4120 IF M$ <> "N" THEN GOTO 4090 

4130 RETURN 

4140 REM 

4150 REM AsSSSS SNS SMS SS SlOlSlSlOlSJSlSlOIOJOlOK 

4160 REM * CHEQUEAR PRIMERA LETRA * 

4170 REM AdMSSMRSSNSSSlSiSiOE*SiS”iSSlSlSlSSlOIPIOK 

4180 REM 

4190 LET J$ = LEFT$(T$(J,1),1) 

4200 IF J$ = H$ THEN GOSUB 2820: PRINT W$;", ";E$ 
4210 RETURN 

4220 REM 

4230 REM AMMOSSSONddldidldloldiok 

4240 REM * BORRAR FICHA * 

4250 REM ASSSSSOdOididldlolololk 

4260 REM 

4270 CLS 

4280 LOCATE 3,11: PRINT "BORRAR PERSONA” 
4290. GOSUB 3450 

4300 IF X$ = "D" THEN GOTO 4360 

4310 LOCATE 12,1: PRINT “(BORRAMOS MAS (S/N)”; 
4320 LET M$-INPUT$(1) 

4330 IF M$ = "S” GOTO 4270 
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4340 IF M$ <> "N" GOTO 4310 

4350 RETURN 

4360 LOCATE 14,2: PRINT “(ESTAS SEGURO (S/N)"; 
4370 INPUT M$ 

4380 IF M$ = "N" THEN CLS: GOTO 4310 

4390 IF M$ <> "S" THEN GOTO 4360 

4400 FOR K = J TO I 

4410 FOR L = 1 TO 6 


4420 LET T3(K,L) = T$(K+1,L) 
4430 NEXT L 

4440 NEXT K 

4450 LET 1 = 1 - 1 

4460 CLS 


4470 LOCATE 4,12: PRINT "FICHA BORRADA!" 

4480 GOTO 4310 

4490 REM 

4500 REM ASSSSSaOa aida a iololdlOlOaiajook 

4510 REM * CAMBIAR UN REGISTRO * 

4520 REM AdSSdOSSoSSolOO oido lolololok 

4530 REM 

4540 LOCATE 14,2: PRINT SPACE$(38) 

4550 LOCATE 14,2: PRINT "(QUE QUIERES CAMBIAR (D,C,Z,P,T)"; 
4560 LET M$=INPUT$(1) 


4570 IF M$ = "D" THEN LOCATE 4,9: LINE INPUT T$(J,2) 
4580 IF M$ = "C" THEN LOCATE 5,9: LINE INPUT T$(J,3) 
4590 IF M$ = "Z" THEN LOCATE 6,9: LINE INPUT T$(J, 4) 
4600 IF M$ = "P" THEN LOCATE 7,9: LINE INPUT T$(J,5) 
4610 IF M$ = "T" THEN LOCATE 8,9: LINE INPUT T$(J,6) 
4620 CLS 

4630 RETURN 

4640 REM 


4650 REM AMS SSISIOIOIOlOK 

4660 REM * IMPRIMIR x*x 

4670 REM AMdSSOlSIOlOlOlOK 

4680 REM 

4690 GOSUB 5390 

4700 LPRINT W$;", ";E$ 

4710 LPRINT T$(J,2) 

4720 LPRINT T$(J3,3);"  ";TS3(J,4) 

4730 LPRINT T$(J,5) 

4740 LPRINT T$(J,6) 

4750 RETURN 

4760 REM 

4770 REM ASSIM ISSO ISIOIIOIOIOIOIOK Ak 

4780 REM * PANTALLA O IMPRESORA * 

4790 REM ao ISIS ISSO JOJO KK 

4800 REM 

4810 CLS 

4820 LOCATE 2,1: PRINT "(QUE QUIERES, PANTALLA O IMPRESORA (P/1)"; 
4830 LET G$-INPUT$(1) 

4840 IF (G$ <> "P") AND (G$ <> "I") THEN GOTO 4810 
4850 LOCATE 5,16: PRINT "OPCIONES" 

4860 LOCATE 6,15: PRINT *"---------- E 

4870 LOCATE 7,10: PRINT "1 - NOMBRE” 

4880 LOCATE 3,10: PRINT "2 - NOMBRE Y TELE" 
4890 LOCATE 9,10: PRINT "3 - NOMBRE, DIRREC. Y TELE” 
4900 LOCATE 12,1: PRINT "(QUE OPCION QUIERES"; 
4910 INPUT U 

4920 IF (U $ 1) OR (U > 3) THEN GOTO 4900 
4930 LOCATE 14,1: PRINT "(ESTAS SEGURO (S/N)"; 
4940 LET M$=INPUT$(1) 

4950 IF M$ = "N" THEN GOTO 4810 

4960 IF M$ <> "S" THEN GOTO 4930 

4970 LET N = O 

4980 IF G$ = "I" THEN GOSUB 5390 

4990 RETURN 

5000 REM 

5010 REM do SSIS SISSI ISIOIOIOIOJOK 


REM * IMPRESION EN PANTALLA x 

REM SSA ISSO ISS ISS ISO ISIOIOIOIOIOIOIOIOOK: 

REM 

GOSUB 2820 

IF G$ = "I" THEN GOTO 5210 

PRINT W$;", "; ES 

1F U = 3 THEN PRINT T$(3,2): PRINT T$(3,3);T38(J., 4): PRINT T$(J,5) 
IF U> 1 THEN PRINT T$(J,6) 


PRINT 2 
LETN=N+1 

IF (U = 1) AND (N/P = 10) THEN GOTO 5160 

IF (U = 2) AND (N/P = 7) THEN GOTO 5160 

IF (U = 3) AND (N/P = 3) THEN GOTO 5160 

GOTO 5380 

LE P=P*+i 


PRINT: PRINT "PULSA ENTER"; 
LET C$ = INPUT$(1) 


CLS 
GOTO 5380 

REM 

REM O ASMSS SOS OSOS OOOO alOkOk 

REM * IMPRIMIR EN IMPRESORA * 

REM AMSSSSO SOS jaS al” lE old lSjololOJojok 

REM 

LPRINT W$; ES 

IF U = 3 THEN LPRINT T$(J,2): LPRINT T$(J,3),T$8(J,4): LPRINT T$(J,5) 


IF U > 1 THEN LPRINT T$(J,6) 

LPRINT 

LETN=N+1 

IF (U = 1) AND (N/P = 30) THEN GOTO 5350 
IF (U = 2) AND (N/P = 20) THEN GOTO 5350 
IF (U = 3) AND (N/P = 10) THEN GOTO 5350 
GOTO 5380 

LETP=P>+.1 


LPRINT CHR$(12) 

CLS 

RETURN 

REM 

REM SS SOSS SiS jaj jOjOjOlOOJOK 

REM * PREPARA IMPRESORA * 

REM ARSS SOS SIS ISSO OOOO JO jOJOK 

REM 

LPRINT CHR$(27)+CHR$(64) 

CLS 

LOCATE 2,1: PRINT "(QUIERES IMPRESION GRANDE O PEQUENA (G/P)"; 
LET M$=INPUT$(1) 

IF M$ = "P" THEN LPRINT CHR$(27)+CHR$(15) 

IF M$ = "G" THEN LPRINT CHR$(18) 


IF (M$ <> "P") AND (M$ <> "G") THEN GOTO 5450 

CLS : y 

LOCATE 2,1: PRINT "PREPARA. EL PAPEL Y PULSA RETURN"; , 

LET C$ = INPUT$(1) D 
RETURN 


Para que el programa funcione en el 1380 PRINT CHR$(147) 
COMMODORE, AMSTRAD y MSX hay que 1440 Ae 211,11:PRINT “AGENDA TELE- 
realizar los siguientes cambios: 1450 POKE 214,8:POKE 21 1,10: PRINT A »” 
COMMODORE: 1460 POKE 214,11:POKE 211,6:PRINT “(c) Ed. Siglo 
Cultural, 1987” 
1370 REM 1610 PRINT CHR$(147) 
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1620 POKE 214,1:POKE 211,0:PRINT “COMO SE LLA- 
MA EL FICHERO” 

1640 a 214,3:POKE 211,0:PRINT 
ES”:F 

1650 POKE 214,5:POKE 211,0:PRINT “ES UN FICHERO 
NUEVO (S/N)”; 

1690 POKE 214,7:POKE 211,0:PRINT “ESTA CORREC- 
TO (S/N)”; 

1800 PRINT CHR$(147) 

1840 GET C$:IF C$="" THEN GOTO 1840 

1850 PRINT CHR$(147) 

1870 OPEN 1,1,0,FS 

1880 INPUT+1,1 

1890 FOR K=1 TO 1 

1925 NEXT K 

1930 CLOSE 1 

1980 GET C$:IF C$="” THEN GOTO 1980 

2040 PRINT CHR$(147) 

2050 POKE 214,2:POKE 211,17:PRINT “MENU” 

2060 POKE 214,3:POKE 211,16:PRINT “------" 

2070 POKE 214,5:POKE 211,11:PRINT “1 - INTRODU- 
CIR PERSONA” 

2080 POKE 214,6:POKE 211,11:PRINT “2 - BUS- 
CAR/CAMBIAR PERSONA” 

2090 POKE 214,7:POKE 211,11:PRINT “3 - BUSQUE- 


“EL NOMBRE 


DA” 

2100 POKE 214,8:POKE 211,11:PRINT “4 - BORRAR 
PERSONA” 

2110 POKE 214,9:POKE 211,11:PRINT “5 - LISTAR TO- 
DAS” 


2120 POKE 214,10:POKE 211,11:PRINT “6 - SALIR” 

2130 POKE 214,13:POKE 211,0:PRINT “QUE ELIGES 
(1- -6 ”, 

2140 GET CS: IF C$="” THEN GOTO 2140 


2145 LET M=VAL(C$) 

2230 PRINT CHR$(147) 

2270 GET C$=:1F C$"” THEN GOTO 2270 

2280 PRINT CHR$(147) 

2300 OPEN 1,1,1,FS 

2305 PRINT +1,i 

2370 CLOSE 1 

2380 PRNT CHR$(147) 

2430 REM 

2500 PRINT CHR$(147) 

2680 PRINT CHR$(147) 

2880 FOR W1=1 TO LEN(S$) 

2882 IF MIDS(S$,W1,1)=" ” THEN LET Q=W1:LET 
W1=LEN(S$) 

2884 NEXT W1 

3430 PRINT CHR$(147) 

3440 POKE 214,2:POKE 211,13:PRINT “LOCALIZAR 
PERSONA” 

3450 POKE 214,4:POKE 211,0:PRINT “NOMBRE : ” 

3470 POKE 214,5:POKE 211,0:PRINT “APELLIDOS : ” 

3510 PRINT CHR$(147) 

3520 IF X$<>"D” THEN POKE 214,6:POKE 
211,11:PRINT “FICHA NO ENCONTRADA”:GO- 
TO 3720 

3540 POKE 214,1:POKE 211,1:PRINT “NOMBRE ”;WS$ 

3550 POKE 214,2:POKE 211,1:PRINT “ "E 

3560 POKE 214,3:POKE 211,1:PRINT “DIREC. 


”:15(J,2) 

3570 POKE 214,4:POKE 211,1:PRINT “CIUDAD 
"15(3,3) 

3580 POKE 214,5:POKE 211,1:PRINT “CODIGO 
":15(3,4) 


3590 POKE 214,6:POKE 211,1:PRINT “PAIS ”;¡TS$(J,5) 
3600 POKE 214,7:POKE 211,1:PRINT “TELEF. ”;TS$(J,6) 
3620 POKE 214,13:POKE 211,2:PRINT “QUIERES CAM- 


BIAR ESTA FICHA (S/N)”; 

3630 GET M$:IF M$="” THEN GOTO 3630 

3660 POKE 214,13:POKE 211,1:FOR Wl=1 TO 
38:PRINT “ "::NEXT W1 

3670 POKE 214,13:POKE 211,1:PRINT “QUIERES IM- 
PRIMIR ESTA FICHA (S/N)”; 

3680 GET M$:IF M$="” THEN GOTO 3680 

3710 POKE 214,13:POKE 211,1:FOR WIl=1 TO 
38:PRINT “ ”;: NEXT W1 

3730 POKE214,13:POKE 211,1:PRINT “BUSCAMOS 
MAS (S/N)”: 

3740 GET M$:IF M$="” THEN GOTO 3740 

3850 PRINT CHR$(147) 

3860 POKE 214,0:POKE 211,13:PRINT “LISTADO DE 
NOMBRES” 

3865 OPEN 1,4:CMD 1 

3905 CLOSE 1 

3930 GET C$:IF C$="” THEN GOTO 3930 

4000 PRINT CHR$(147) 

4010 POKE 214,1:POKE 211,11:PRINT “BUSQUEDA 
POR LETRA” 

4020 POKE 214,3:POKE 211,0:PRINT “PRIMERA LETRA 
DEL NOMBRE ”: 

4040 PRINT CHR$(147) 

4050 POKE 214,1:POKE 211,15:PRINT “NOMBRES 
CON ”;H$ 

4100 GET M$:IF M$="" THEN GOTO 4100 

4270 PRINT CHR$(147) 

4280 POKE 214,2:POKE 211,10:PRINT “BORRAMOS 
PERSONA” 

4310 POKE 214,11:POKE 211,0:PRINT “BORRAMOS 
MAS (S/N)” 

4320 GET M$:IF M$="" THEN GOTO 4320 

4360 POKE 214,13:POKE 211,1:PRINT “ESTAS SEGURO 
(S/N)" 

4380 IF M$="N” THEN PRINT CHR$(147):GOTO 4310 

4460 PRINT CHR$(147) 

4470 POKE 214,3:POKE 211,11:PRINT “FICHA BORRA- 
DA” 

4540 POKE 214,13:POKE 211,1:FOR Wl=1 TO 
38:PRINT “ ";:NEXT W1 

4550 POKE 214,13:POKE 211,1:PRINT “QUE QUIERES 
CAMBIAR (D,C,Z,P,T)”; 

4560 GET M$:IF M$="" THÉN GOTO 4560 

4620 PRINT CHR$(147) 

4700 PRINT WS;", ":ES 

4710 PRINT T5(J,2) 

4720 PRINT 15(J,3);" 

4730 PRINT 15(J,5) 

4740 PRINT T5(J,6) 

4810 PRINT CHR$(147) 

4820 POKE 214,1:POKE 211,0:PRINT “QUE QUIERES 
PANTALLA O IMPRESORA (P/l)”; 

4830 GET G$:IF G$="” THEN GOTO 4830 

4850 POKE 214,4:POKE 211,15:PRINT “OPCIONES” 

4860 POKE 214,5:POKE 211,14:PRINT “'-=-=-=---- , 

4870 POKE 214,6:POKE 211,9:PRINT “1 - NOMBRE” 

4880 POKE 214,7:POKE 211,9:PRINT “2 - NOMBRE Y 
TELF.” 

4890 POKE 214,8:POKE 211,9:PRINT “3 - NOMBRE, 
DIR. Y TELEF.” 

4900 POKE 214,11:POKE 211,0:PRINT “QUE OPCION 
QUIERES ”:; 

4930 POKE 214,13:POKE 211,0:PRINT “ESTAS SEGURO 
(S/N)" 

4940 GET MS:IF M$="" THEN GOTO 4940 

5180 GET C$:IF C$="” THEN GOTO 5180 

5190 PRINTCHR$147) 

5260 PRINT WS;ES 


",T9G,4) 


5270 IF U=3 THEN PRINT T$(J,2):PRINT T$(J,3), 
15(J,4):PRINT T$(J,5) 

5280 IF U>1 THEN PRINT T$(J,6) 

5290 PRINT 

5360 PRINT CHR$(12) 

5370 PRINT CHR$(147) 

5440 REM 

5450 REM 

5460 REM 

5470 REM 

5480 REM 

5490 REM 

5500 REM 

5510 PRINT CHR$(147) 

5520 POKE 214,1:POKE 211,0:PRINT “PREPARA EL PA- 
PEL Y PULSA RETURN”; 

5530 GET CS$:IF C$="" THEN GOTO 5530 


MSX: 


Sólo hay que cambiar de orden los ar- 
gumentos de todas las sentencias LOCA- 
TE. Si, por ejemplo, vemos la línea 2050 
que pone: 


2050 LOCATE 3,18:PRINT “MENU” 
nosotros tendremos que poner: 
2050 LOCATE 18,3:PRINT “MENU” 


AMSTRAD: 


Aparte de tener que cambiar el orden 
de todas las sentencias LOCATE tal y 
como se explica en las variaciones para 
MSX, hay que realizar los siguientes cam- 
bios: 


1870 OPENIN FS 

1880 IF EOF THEN GOTO 1930 

1910 LINE INPUT +9,TS(1,J) 

1930 CLOSE 

2300 OPENOUT FS 

2340 PRINT 49,TS$(J,K) 

2370 CLOSE 

4700 PRINT 48,WS;", ”:ES 

4710 PRINT 48,T5(J,2) 

4720 PRINT ++8,T$(J,3);" 

4730 PRINT 48,T$(J,5) 

4740 PRINT +8,T$(J,6) 

5260 PRINT +8,WS;ES 

5270 IF U=3 THEN PRINT OO sr 
48,15$(J,3),T5(J,4):PRINT 48,1$(J,5) 

5280 IF U>1 THEN PRINT ++8,T$(J,6) 

5290 PRINT +8 

5360 PRINT ++8,CHR$(12) 

5440 REM 

5450 REM 

5460 REM 

5470 REM 

5480 REM 

5490 REM 

5500 REM 


”:15(J,4) 


0 Programa: «El ahorcado» para 
SPECTRUM 


El programa que vamos a ver a conti- 
nuación es de todos conocido y a duras 
penas necesita de explicación. Este pro- 
grama está realizado en versión para 
SPECTRUM, ya que anteriormente apare- 
ció para otros ordenadores. 


AHORA 
Adivina La pala 
“Ll ordenador ante 
acaben Las oportu 


CA 
b 
3 
n 


DO 
r 
iá 


INFORMATICA PASO 


PULSA UNA TECLA PARA EMPEZAR 


y y Pantalla de presentación del programa 
«Ahorcado». 


El juego, en resumen, consiste en adivi- 
nar una palabra que ha pensado el or- 
denador. El usuario irá introduciendo las 
letras que él cree que pueden componer 
la palabra una a una. Si la letra es correc- 
ta, el ordenador la colocará en su sitio y 
si no lo es, restará uno al número de opor- 
tunidades que tiene el usuario para acer- 
tar la palabra. 


AHORCADO 


INTENTOS= 5 ACERTADAS= E 


<= His Hi, E E NE 


PULSA LA a Hal DESEADA 


El juego termina cuando el jugador ha 
acertado la palabra o cuando ha agota- 
do las oportunidades que se le ofrecen. 


» PROGRAMAS 


10 REM adds jS SPSS jSlSlSlOlOJOJOJOJOK 

20 REM aeotokxkxx* AHORCADO adololalololek 

30 REM ¿erre eee lolo 

40 REM *x*x*xx CARLOS DORAL xoxookxk 

BO REM Add lS PSSS lSlSlSlOlOlOjSlSlOIOK 

60 BORDER 7 

70 PAPER 7 

80 INK O 

90 CLS 

100 DIM a(20) 

110 PRINT AT 3,12; PAPER 2; INK 
7; BRIGHT 1; FLASH 1;"AHORCADO" 

120 PRINT AT 5,0;" Adivina la 
palabra que piensa el ordenador 
antes de que se te acaben las op 
ortunidades. " 

130 LET a$=" INFORMATICA PAS 
O A PASO DS 

140 PRINT FLASH 1;AT 21,2;"PUL 
SA UNA TECLA PARA EMPEZAR" 

150 PRINT AT 10,0;a$ 

160 LET a$=a$(2 TO )+a$(1) 

170 FOR f=1 TO 10 

180 NEXT f 

190 IF INKEY$="" THEN GO TO 15 
0) 

200 LET c=1 

210 LET bi=0 

220 CLS 

230 RANDOMIZE PEEK 23672 

240 LET rn=1+INT (RNDx*x19) 

250 FOR f=1. TO 20 

260 IF a(f)=rn THEN GO TO 2 
40 

270 NEXT f 

280 LET a(rn)=rn 

290 LET da=730+(rnx10) 

295 RESTORE da 

300 READ a$ 

310 LET b$=a$ 

320 PRINT AT 0,12; BRIGHT 1; FL 
ASH 1; INK 1; PAPER 7;"AHORCADO" 

330 LET t=0 

340 LET b=0 

350 PRINT AT 5,2; FLASH 1;" x* A 
TENCION QUE EMPEZAMOS * " 

360 FOR f=1 TO 6 

370 BEEP .20,20 

380 NEXT f 

390 FOR f=5 TO 3+(LEN a$*x2) STE 
Eva 

400 PRINT AT-10,£3.".* 

410 NEXT f 

420 PRINT AT 5,2; FLASH 0;" 

430 FOR w=1 TO LEN a$+4 

440 PRINT AT 2,0; "INTENTOS= 
"sw-1;" )ACERTADAS= ";b 

450 PRINT AT 12,5;"PULSA LA 
LETRA DESEADA" 

460 POKE 23658,8 

470 LET k$=INKEYS$ 

480 IF CODE k$<65 OR CODE k$ 
>90 THEN GO TO 460 

490 PRINT AT 13,15; INVERSE 
1;k$ 

500 FOR f=1 TO LEN as$ 

510 IF k$=a$(f TO f) AND 


a$(f TO f)<>" " THEN PRINT AT 1 
0,3+(2*f); OVER 1;k$: LET b=b+1: 
LET a$(f TO f)=" " 

520 NEXT £f 

530 IF c=20 THEN GO TO 1030 
540 IF b=LEN a$ THEN GO TO 
940 

550 FOR f=1 TO 20 

560 NEXT £ 

570 NEXT w 

580 PRINT FLASH 1;AT 15,2;"LO 
SIENTO, NO LA HAS ADIVINADO" 

590 FOR f=50 TO O STEP -5 

600 BEEP .20,f 

6810 NEXT f 

620 PRINT AT 17,3;"LA PALABRA E 
RA "; FLASH 1;b$ 

830 FOR f=1 TO 300 

640 NEXT f 

650 PRINT AT 20,2;" VAMOS A PO 
R OTRA (S/N) ? " 

660 POKE 23658,8 

670 LET k$=INKEYS$ 

680 IF k$="S" OR k$="s" THEN L 
ET c=c+1: GO TO 220 

690 IF k$="N" OR k$="n" THEN G 
O TO 1090 

700 GO TO 680 

710 REM saSSIS SIS SjS SIS SjSSjSOJSlOlOlOJOKOK 
720 REM *DATAS DE LAS PALABRASx* 
730 REM dRalSSlSSlS SIS SISlS lO JOlOlOlOJOJAIOKAK 
740 DATA "COMPUTER" 

750 DATA "VOLUMEN" 

760 DATA "BALONCESTO" 

770 DATA "DISCOTECA" 

780 DATA "INDESCOMP" 

790 DATA "VENTANUCO" 

800 DATA "BISMUTO" 

810 DATA "INSERTAR" 

820 DATA "ORBICULAR" 

830 DATA "CUADRICEPS" 

840 DATA "ENSAMBLADOR" 

850 DATA "CALENDARIO" 

860 DATA "BOLIGRAFO" 

870 DATA "IMPOSIBLE" 

880 DATA "SABOTAJE" 

890 DATA "IZQUIERDA" 

900 DATA "DESPLAZAMIENTO" 

910 DATA "COMENTARIO" 

920 DATA "RANDOMIZE" 

930 DATA "TRIANGULO" 

940 REM ho ad ad add ak ad ad ad ad dk ak ke 
950 REM adoookkk ACERTADA Adotooook 
960 REM Asa aaa alada dadododdaok ok 
970 PRINT AT 20,2; FLASH 1;" MU 
Y BIEN,LA HAS ACERTADO !" 

980 FOR f=1 TO 20 

990 BEEP .10,-50+INT (RNDx50 
) 

1000 NEXT f 

1010 LET bi=bi+1 

1020 GO TO 650 

1030 REM adsdadaOSlS SOS jO Ojo lolajolojolajokak 
1040 REM adoolooloKk FINAL olololojololÓoK 
1050 REM addRadSIR SIS SISlOISOlSSJSlOjOlOJOJOJOK 
1060 PRINT AT 20,1;"SE ME HAN AC 
ABADO LAS PALABRAS" 

1070 FOR f=1 TO 300 


1080 NEXT f 

1090 CLS 

1100 PRINT AT 0,12; BRIGHT 1; FL 
ASH 1; INK 1; PAPER 7;"AHORCADO" 
1110 PRINT AT 4,3;"NUMERO DE PAL 
ABRAS= ";c 

1120 PRINT AT 6,3;"PALABRAS ACER 
TADAS= ";bi 

1130 PRINT AT 8,3;"PORCENTAJE AD 
IVINATORIO= ";INT ((bix100)/0);" 
q" 

1140 PRINT AT 20,2;"PULSA UNA TE 
CLA PARA EMPEZAR" 

1150 IF INKEY$<>"" THEN CLS : G 
O TO 110 

1160 GO TO 1150 


Al final del juego, el ordenador hace un 
balance del mismo y nos dice cuántas 
palabras hemos acertado. 


: AHORCADO 


NUMERO DE PALABRAS= 2 
PALABRAS ACERTADAS= 1 
PORCENTAJE ADIVINATORIO= 50% 


PULSA UNA TECLA PARA EMPEZAR 


| 
| 
[A Resultados finales. 


DIAGRAMAS 


OS diagramas de pro- 
ceso (o diagramas 
de flujo) suponen un 
esquema sucinto y 
claro de los pasos su- 
cesivos que se darán 
en la aplicación, así 
como de los archivos 
utilizados y, por tanto, de la evolución de 
los datos en el proceso. En la figura apa- 
rece un diagrama sencillo de proceso. En 
él se observan los símbolos normalmente 
utilizados en los diagramas: 


OO) Simbolo terminal. indica el 


comienzo o final del proceso. 
Sólo se utiliza en la rama prin- 
cipal del programa, pues el 
resto de los procesos predefi- 
nidos tienen su comienzo en 
un punto de llamada (que vie- 
ne indicado por un conector) 
y su final en un punto de retor- 
no (otro conector). 

Conector. Punto donde en- 
lazan las líneas de flujo que 
provienen de otros procesos. 
Normalmente suele estar al 
comienzo de un proceso. Es 
usual indicar en las líneas que 
llegan al conector el punto de 
donde provienen (proceso 
del que parten), así como la 
página donde parten), así 
como la página donde apare- 
ce este punto de origen (si el 
diagrama se extiende a lo lar- 
go de varias páginas, como 
es usual). 

Simbolo de decisión. Cuan- 
do la decisión a tomar es uni- 
taria (sólo una condición sim- 
ple). De este punto parten va- 


O 
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rias líneas de proceso alterna- 
tivas: la línea principal, que si- 
gue el diagrama y otras que 
van hacia otros puntos del 
diagrama. 

Proceso en general. Cuando 
el proceso es simple y queda 
claramente identificado en 
este punto del diagrama. 

Proceso predefinido. Se da 
el nombre del proceso (o un 
mnemotécnico propio del 
diagrama). En otro lugar del 
diagrama deberá aparecer 
este proceso bajo el mismo 
nombre y con un punto de co- 
mienzo (o «punto de llama- 
da») y un punto de vuelta a la 
línea principal de proceso. 

En ocasiones hay puntos de la aplica- 
ción en los cuales se realizan varios pro- 
cesos sucesivos, o no se realizan, depen- 
diendo de un conjunto de condiciones a 
evaluar: en ese caso, aparece una es- 
tructura de proceso como la que se 
muestra en la figura, en el paso 2, que in- 
cluye una pequeña tabla (a modo de ta- 
bla de decisión) para decidir si los pasos 
1, 4, 6, se realizan o no, respectivamen- 
te. Usualmente se suelen tener en cuen- 
ta en el diseño de estos diagramas las si- 
guientes normas: 

a) Los mnemotécnicos utilizados de- 
ben ser claros y aludir a las actividades 
que realmente se realizan en el proceso 
al que dan nombre. 

b) Lareferencia del punto de entrada 
de donde viene el control se suele poner 
a la izquierda del símbolo de conexión; la 
referencia del punto al que se cede con- 
trol, debe estar a la derecha del conec- 


[—] 
[1] 


PASO 4 


PASO 2 


PASO 4 


tor (e incluyendo el número de página 
donde dicho punto de control sucesivo 
aparece). 

c) Todos los saltos de control dentro 
del programa deben estar claramente 
identificados mediante las oportunas re- 
ferencias; en todos los diagramas rela- 
cionados deben aparecer las mismas re- 
ferencias. 

d) El nivel de detalle en el diagrama 
puede variar, y un elemento de proceso 
definido puede ser una operación ele- 
mental o una subrutina o un proceso 


Grabar P2 MAESTRO 


Grabar P4DET5 


Leer P2 MOV 


PASO 5 


PASO 41 Actualización 
Paso a otro 


PASO a "egistro 
Emisión 
de informes 
PASO 6 


Grabar P4 MAESTRO 


Leer P2MOV 


más amplio; por razones de coheren- 
cia, esimportante que, alo largo de todo 
el diagrama, se mantenga el mismo nivel 
de detalle para los diferentes procesos 
referenciados. 

e) En los procesos predefinidos no 
hay que poner referencia alguna en el 
punto de entrada ni en el punto de sali- 
da, puesto que pueden ser llamados 
desde distintos procesos en la aplica- 
ción. El retorno se hace al punto donde 
fueron llamados. 

f) En un conector debe procurarse 
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que las líneas que representan los cami- 
nos de acceso lleguen por la izquierda 
y/o por arriba. Las líneas de flujo de sali- 
da del conector partirán, preferiblemen- 
te, hacia la derecha y hacia abajo. Las 
referencias se anotarán siguiendo el mis- 
mo criterio. Al acabar una página, para 
seguir en la siguiente (o en la columna 
de la derecha si el diagrama se dibuja a 
dos columnas, como es usual) se pondrá 
un conector con sus referencias y simbo- 
los usuales. 

g) Las bifurcaciones por tomas de de- 
cisión se señalan preferiblemente me- 
diante el símbolo previsto para este tipo 
de acción, excepto si existen varias alter- 
nativas y se hace necesario poner una 


pequeña tabla para seleccionar los pa- 
sos adecuados. 


h) Las anotaciones complementarias 
y comentarios (incluidos en la caja 
correspondiente) se reducirán a lo estric- 
tamente imprescindible y se harán, si es 
necesario incluirlas, lo más concisas po- 
sible. 


¡) Cuando haya pasos de salida alter- 
nativos en un proceso, cada línea (repre- 
sentativa de uno de estos procesos alter- 
nativos) terminará en un conector hacia 
la derecha con la referencia de la rutina 
correspondiente. Esta rutina se reseñará 
aparte, aunque sea un solo proceso pre- 
definido o una actividad simple. 


STRICTAMENTE hablan- 
do, una expresión 
mixta es aquella que 
mezcla datos de ti- 
pos básicos diferen- 
tes (números con ca- 
racteres, números 
con datos lógicos, 
etcétera). Pero en sentido más amplio 
puede aplicarse también este nombre a 
las expresiones donde aparecen mez- 
clados datos del mismo tipo básico (nu- 
mérico) pero de distinto tipo interno (da- 
tos enteros con reales, por ejemplo). 
¿Qué sucederá en estos casos? ¿Qué ac- 
ciones toma el traductor (compilador o 
intérprete) del lenguaje de programa- 
ción en que escribimos estas expresio- 
nes? Es importante saberlo, pues en caso 
contrario, los resultados pueden ser real- 
mente sorprendentes o imprevisibles. 

En un lenguaje como el APL, en el que 
la representación interna de los datos es 
invisible para el programador (puesto 
que externamente sólo existe el tipo nu- 
mérico, aunque los datos estén de hecho 
guardados en memoria en la forma más 
compacta posible) este problema no 
llega a producirse. También puede pres- 
cindirse de él en muchos intérpretes de 
BASIC, siempre que programemos utfili- 
zando sólo una forma de representación 
interna (números en punto flotante en 
precisión normal), que es la opción por 
defecto, pero comienza a tener impor- 
tancia si encontramos problemas de 
ocupación de memoria o necesitamos 
una precisión mayor y hemos de mezclar 
distintos tipos numéricos en el mismo pro- 
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COMPATIBILIDAD DE TIPOS 


grama. En PASCAL, donde la mezcla de ti- 
pos es usual, el problema de la compa- 
tibilidad de tipos es aún más acuciante. 


Sin embargo, la cosa no es tan mala 
como a primera vista pudiera parecer. 
Todos los intérpretes o compiladores de 
los lenguajes donde se presenta este 
tipo de problemas suelen aplicar un cor- 
to número de reglas que han sido diseña- 
das de tal manera que la compatibilidad 
de tipos sea lo más natural posible. En 
general, todo dato perteneciente a un 
tipo más restringido (como el entero) po- 
drá transformarse y operarse sin más con 
otro dato perteneciente a un tipo más 
amplio (como uno de los tipos en punto 
flotante). Los problemas suelen presen- 
tarse únicamente cuando deseamos 
asignarle un valor de tipo más amplio. a 
una variable definida con un tipo más 
restingido. Pero de ésta ya hemos habla- 
do en el capítulo 10. La conversión de 
tipo en el lenguaje BASIC se realiza de la 
misma manera que se explicó en el ca- 
pítulo 10 para la asignación de valor, a 
saber: 


1. Al convertir de un tipo de precisión 
más baja a otro de precisión más alta (de 
entero a real en precisión sencilla o do- 
ble; de real en precisión sencilla a real 
en precisión doble) la conversión se rea- 
liza sin dificultades, añadiendo ceros de- 
cimales a la derecha del número a con- 
vertir. Por ejemplo, el dato de precisión 
sencilla 2.345678 se convertirá en preci- 
sión doble en 2.34567800000000. 

NOTA: Debido a que todas las formas 
de representación interna de los datos 
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numéricos en los ordenadores tienen 
cierto error intrínseco, este error se trans- 
mitirá también durante las conversiones 
de tipo. En el caso anterior, el número 
2.345678 podría no ser representable 
exactamente dentro del ordenador. Qui- 
zá aparezca (en precisión sencilla) 
como 2.34567799. En tal caso, al conver- 
tirlo a precisión doble pasaría a ser 
2.34567799000000. Pero también es po- 
sible que este número tampoco sea re- 
presentable con exactitud en precisión 
doble. En tal caso, el valor exacto que 
tendremos después de la conversión po- 
dría llegar a ser tan distinto del original 
como 2.34567799000001. 

2. Al convertir de un tipo de precisión 
más alta a otro de precisión más baja, se 
realiza un redondeo. Por ejemplo, si pa- 
samos a entero el número 2,34, se nos 
convertirá en 2. En cambio, el número 
2.67 se convertirá en 3. Por convenio, en 
casi todos los intérpretes BASIC, el núme- 
ro 2.5 (que está situado exactamente en 
el centro del intervalo) se redondea 
siempre por exceso. Es decir, se conver- 
tirá en 3. 

Las reglas utilizadas por los intérpretes 
de BASIC para las expresiones con mez- 
cla de tipos internos son las siguientes: 

1. Si la operación a realizar exige un 
tipo determinado, todos los datos a ope- 
rar se convertirán a dicho tipo antes de 
realizar la operación. 

2. Sila operación a realizar no exige 
un tipo determinado, todos los datos a 
operar se convertirán al tipo más amplio 
entre los presentes. 

Veamos algunos ejemplos de ambos 
casos. La operación «división entera» (re- 
presentada por el símbolo 1) exige el tipo 
entero para los datos a los que se apli- 
ca. Por tanto, si tratamos de ejecutarla 
con datos con decimales, éstos se redon- 
dearán a enteros antes de que la opera- 
ción se realice. 


10 X$=1514 
20 A=221X$4 

30 Y%=26.8716.6 
40 PRINT X8*;A3YZ 


Veamos lo que ha ocurrido en este pro- 
grama: la linea 10 calcula la división en- 


tera de dos números enteros: 15 y 4. Todo 
está, por tanto, en orden. No hay que 
realizar conversión alguna. El cociente 
entero de ambos números es 3 y éste es 
el valor que se le asigna a la variable X4, 
que está definida (por su nombre) como 
real en precisión doble. Por tanto, el va- 
lor entero 3 debe convertirse durante la 
asignación a este tipo, más preciso. Su- 
pondremos que el dato 3 puede repre- 
sentarse exactamente en la memoria del 
ordenador. El valor de X+ será, por tan- 
to, 3.00000000000000 (o, simplemente, 3). 


La línea 20 calcula la división entera 
del entero 22 y de la variable en preci- 
sión doble X+. Esta última debe conver- 
tirse, por tanto, al tipo entero, redon- 
deando su valor si es necesario. Como 
éste era 3, no hace falta aplicar redon- 
deo alguno. El resultado será, de nuevo, 
el entero 3. Ahora hay que calcular el co- 
ciente entero de 22 entre 3, que resulta 
ser 7. Por último, hay que asignar este va- 
lor a la variable real en precisión simple 
A. Supondremos que 7, en precisión sim- 
ple, se convierte en 7.000000 (o, simple- 
mente, 7). 


La línea 30 calcula el cociente entero 
de dos números con decimales (expresa- 
dos, por tanto, en precisión simple). Es 
preciso convertirlos a enteros antes de 
realizar la operación. El primero (26.87) 
se redondea a 27. El segundo (6.6) se re- 
dondea a 7. Ahora dividimos 27 entre 7, 
obteniendo un cociente entero igual a 3. 
Por último, es preciso asignar este resul- 
tado a la variable entera Y%. Aquí no hay 
convursión de tipos y la asignación pue- 
de realizarse directamente. 


Finalmente, la línea 40 escribe en la 
pantalla los valores de las tres variables. 
Podemos comprobar que son iguales a 
3,7 y 3, como acabamos de deducir. 


Veamos otro ejemplo. La operación 
«resto entero» (representada por la pa- 
labra reservada MOD) exige también el 
tipo entero para los datos a los que se 
aplica. Por tanto, el proceso a seguir será 
muy parecido al del ejemplo anterior. 


10 X*=15 MOD 4 


20 A=22 MOD X%+ 
30 Y%=26.87 MOD 6.6 


40 PRINT X8;A;YZ 
RUN 
3 


o 


La explicación de los resultados obte- 
nidos es totalmente equivalente a la del 
caso de la división entera, por lo que ya 
no vamos a entrar en detalle. 

Veamos ahora un ejemplo de la utiliza- 
ción de operaciones que no exigen un 
tipo determinado en los datos a los que 
se aplican. Por ejemplo, la suma. 


10 XH=15+4.5 
20 A=22+X8 

30 Y%=26.87+6.6 
40 PRINT X%; Az YZ 


Veamos lo que ha ocurrido en este pro- 
grama: la línea 10 calcula la suma de un 
número entero (15) y otro real en preci- 
sión simple (4.5). Todos los datos deben 
convertirse al tipo de dato de más preci- 
sión (es decir, a reales en precisión sim- 
ple) antes de que la operación pueda 
realizarse. Por tanto, tendremos que su- 
mar 15.00000 y 4.500000, obteniendo el 
resultado 19.50000. Este es el valor que 
se le asigna a la variable X+, que es real 
en precisión doble. Por tanto, el valor 
real en precisión sencilla 19.5 debe con- 
vertirse durante la asignación a este tipo, 
más preciso. El valor de X+ será, por tan- 
Lea e OPD A AAn (o, simplemente, 

.5). 

La línea 20 calcula la suma del entero 
22 y de la variable en precisión doble X+. 
Por tanto, la operación va a efectuarse 
en precisión doble y el número entero 
deberá convertirse a este tipo 
(22.0000000000000). El resultado es el 
número en precisión doble 
41.5000000000000. Ahora hay que asig- 
nar este valor a la variable real en preci- 
sión simple A. Por tanto, habría que con- 
vertirlo a un tipo de precisión más 
baja, redondeándolo. Despreciando los 
errores de representación en memoria, 
BOS 41.50000 (0, simplemente, 
41.5). 


La línea 30 calcula la suma de dos nú- 
meros con decimales expresados en pre- 
cisión simple. La operación se realiza, 
por tanto, en dicha precisión y no es pre- 
ciso realizar conversión alguna. El resul- 
tado es 33.47. Ahora es preciso asignar 
este resultado a la variable entera Y%. 
Por ello es preciso redondear 33.47 al en- 
tero más próximo, que es 33. 

Finalmente, la línea 40 escribe en la 
pantalla los valores de las tres variables. 
Podemos comprobar que son iguales a 
19.5, 41.5 y 33, como acabamos de de- 
ducir. 

Obsérvese cómo el resultado habría 
sido distinto si la conversión a entero se 
hubiera realizado antes de efectuar la 
operación. En tal caso, 26.87 se habría 
convertido en 27 y 6.6 en 7, con lo que 
su suma sería igual a 34. Si quisiéramos 
obtener dicho resultado, podríamos lo- 
grarlo con las siguientes instrucciones BA- 
SIG: 


10 A%=26.87 
20 B%=6.6 
30 Y/=A7+B%, 
40 PRINT AZ73B%;3Y% 
RUN 


Y NS a 


En este programa, los dos valores rea- 
les (26.87 y 6.6) se asignan primero a las 
dos variables enteras A% y B%, respecti- 
vamente. Se produce, por tanto, una 
conversión de tipo que redondea ambas 
a los valores 27 y 7. En la línea 30, las dos 
variables A% y B% (que ya eran enteras) 
se suman, y se asigna el resultado a la va- 
riable Y%, también entera. Así, pues, la 
operación se realiza directamente en el 
tipo entero y no es preciso realizar con- 
versión alguna. La suma de 27 y 7 da, 
como es natural, el resultado 34, que es 
el nuevo valor de la variable Y%. 

El tipo del resultado será, en general, 
el mismo que el de los datos con los que 
se opera, pero no siempre. La división 
con decimales, por ejemplo (representa- 
da con el símbolo / ) produce siempre un 
resultado en punto flotante, aunque los 
dos datos a los que se aplique sean en- 
teros. Por ejemplo: 
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10 A%=26.87 
20 B%=3.6 
40 PRINT A%;B7;A7%/B% 
RUN 


En PASCAL, el problema de las conver- 
siones es menos acuciante, pues solo 
hay dos tipos numéricos en lugar de tres: 
enteros y reales. La conversión de entero 
a real no tiene problema, y se lleva a 
efecto automáticamente siempre que es 
necesaria. Para la conversión de real a 
entero, ya vimos en el capítulo 10 que los 
compiladores de PASCAL reconocen dos 
funciones básicas: TRUNC, que trunca 
siempre por defecto los valores reales a 
los que se aplica, y ROUND, que los re- 
dondea al entero más próximo. En gene- 
ral, si una operación exige los datos en 
el tipo entero (como en el caso de DIV y 
MOD), no podrá aplicarse nunca a datos 
del tipo real, pues el compilador genera- 
rá un mensaje de error. Es decir, al revés 


program test; 
var 
i,j : integer; 
r,s : real; 
begin 
iz=round (2.5); 


ri=i div j; 


que al ser ejecutado da el siguiente re- 
sultado: 


j:=round (2.4999); 


writeln(i,? ”,j,” ”?,round(2.5000001),”? ”,r);5 


que en el BASIC, en PASCAL no hay redon- 
deo automático. Otra diferencia es que 
ROUND (2.5) es igual a 2. Es decir, el re- 
dondeo se hace en este caso por defec- 
to. 

Las operaciones aritméticas de PASCAL 
se realizan normalmente, cuando pue- 
den actuar con datos de varios tipos y se 
aplican a más de un dato, en el tipo del 
que tiene más precisión. Si los dos datos 
son enteros o reales, la operación se rea- 
lizará normalmente sin aplicarles conver- 
sión alguna. Si uno de ellos es entero y el 
otro real, el entero se convertirá automá- 
ticamente a real antes de realizar la ope- 
ración. En cuanto al resultado, pertene- 
cerá normalmente al tipo en que se rea- 
lizó la operación. La excepción es, tam- 
bién en PASCAL, la división de números 
reales (representada por el símbolo /), 
que convierte siempre sus datos al tipo 
real, aunque los dos fueran enteros ini- 
cialmente. 

Si deseamos realizar las operaciones 
DIV y MOD con datos reales, será preciso 
convertir éstos primero al tipo entero me- 
diante las funciones básicas TRUNC o 
ROUND. Por ejemplo: 


2 2 3 1.00000000000000E+000 


Hojas 
de cálculo. 
Multiplán 


L Multiplán es una de 
las hojas de cálculo 
de más difusión en el 
mercado actual. In- 
fluyen dos cosas de 
forma determinante 
en ello. 


-- Las versiones 
existentes para los distintos microordena- 
dores, que la convierten en una hoja de 
cálculo casi universal. 

— la gran facilidad para traspasar 
datos a otros programas permitiendo así 
combinar la versatilidad del Multiplán 
como hoja electrónica con las posibili- 
dades ofrecidas por programas de gráfi- 
cos, procesadores de textos, bases de 
datos, etc. 


Para acceder al programa basta intro- 
ducir las letras MP seguidas del número de 
columnas deseado para el monitor: 40 u 
80. En general se trabaja con MP80, ya 
que no todos los monitores admiten 
MPA40. 

Aparece en el monitor la pantalla del 
Multiplán que consta de: 


— Retícula de filas y columnas. 

— Menú de comandos. 

— Línea de explicación del comando. 

— Celda activa (sobre la que se en- 
cuentra el cursor o se está trabajando). 

— Volumen de la hoja de cálculo que 
se encuentra sin ocupar. 

— Nombre de la hoja de cálculo: Por 
defecto toma el nombre de Temp, que 
significa que se trata de una hoja tempo- 
ral. 


APLICACIONES 


1 
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El menú de comandos hace de Multi- 
plán un programa de fácil aprendizaje; 
prácticamente sin manual usted puede 
llegar a conseguir realizar una hoja de 
trabajo, simplemente debe dejarse guiar 
por el menú. 


O Movimiento por la hoja 


Para desplazarse por las celdas utilice 
las flechas de movimiento, éstas le per- 
mitirán pasar a la celda contigua. Si de- 
sea un movimiento más rápido, utilice las 
teclas (Pg Up) y (Pg Dn), según quiera ir 
una página arriba o abajo. Para despla- 
zarse por el menú de comandos utilice 
las teclas de función F9 y F10. Si lo prefie- 
re, puede acceder al comando directa- 
mente pulsando la inicial del mismo. 

Dentro de los menús el desplazamien- 
to se realiza con los tabuladores. 


O Comandos 


Vamos a ir viendo, uno a uno, los co- 
mandos que aparecen en el menu: 


a APLICACIONES 


ALFA. Permite crear un literal en una 
celda. Creamos, por ejemplo, literales 
enR1C2,R1C3, y R1C4 para indicar ingre- 
sos, gastos y diferencia entre ambos, y en 
la columna 1 introducimos los motivos de 
dichos ingresos y gastos. 


E] 
EDITAR; BC[-2)-AC[-1] 


Introdacir fórmla 
1ac3 991 Libre IL Maltiplan: TEMP 


BLAN. Rellena de blancos la celda o 
rango de celdas indicadas. 

CLASIF. Con este comando se puede 
ordenar de mayor a menor y por orden 
alfabético, bien por filas o por columnas. 
Si la fila o columna (permite, también, 
sólo una parte de la misma) es numérica, 
ordenará de mayor a menor o de menor 
a mayor el grupo de celdas especiífica- 
das. Si se trata de celdas alftanuméricas 
(literales), la ordenación creciente, de 
mayor a menor, supone una ordenación 
alfabética empezando por la A, y la de- 
creciente será un orden alfabético in- 
verso. 
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lotroducir terto (sin comillas) 
pci "Total! 992 Libre ML Multiplan: TEMP 


DIREC. Se utiliza para direccionar un 
nombre, un renglón o una columna. 

EDIT. Permite escribir fórmulas en una 
celda y editar el contenido para modifi- 
carlo. 


Fo] 
CLASIPICAR por columma: í entre los renglooes: 3 y: Y  orden:(»)c 


Iotrodacir número 
mer 991 Libre NL Multiplan: TEMP 


FORMAT. Con diferentes opciones, este 
comando nos permite determinar el for- 
mato que deseemos para una celda o 
rango de celdas. Podremos variar atribu- 
tos tales como la longitud, si el conteni- 
do se pega a la derecha, centro o iz- 
quierda, tipo de decimales y número, ca- 
racteres especiales, si deben aparecer 
las fórmulas en pantalla o si están permi- 
tidos los puntos o no. 

Reformemos, por ejemplo, la longitud 
de la columna 1 para que el literal sus- 
cripción quepa entero en la celda. 

GENERA. Este comando genera renglo- 
nes o columnas en la posición indicada. 


Continuando con el ejemplo, generamos 
una línea encima de la 2 y otra entre la 
7 y la 8 para separar un poco las zonas. 
En la nueva fila 8, mediante el comando 
ALFA, rellenamos con guiones para sub- 
rayar. 


E) 
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HOAYU. Nos permite acceder al com- 
pleto help que posee el Multiplán. 

IMPRIMIR. Con varias opciones adicio- 
nales es el comando que permite volcar 
la hoja de trabajo o una zona de ella en 
la impresora. Es muy importante la op- 
ción MARGENES, que mediante un co- 
mando adecuado de compresión permi- 
te aumentar el número de columnas en- 
viadas a la impresora. 

LIMIT. Es el comando que permite divi- 
dir la hoja en ventanas y crear limitado- 
res. Ejemplos de ventanas se verán en el 
siguiente fascículo. Creemos un limitador 
para nuestra hoja: 
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MOV. Con este comando se puede 
cambiar de lugar una columna o una fila, 
desapareciendo de su antigua posición. 

NOMB. Permite dar nombre a una cel- 
da o grupo de celdas, de forma que lue- 
go nos podemos referir a ella/s por su 
nombre (incluso en las fórmulas). 

OPCION. Permite anular la recalcula- 
ción automática de la hoja de cálculo, 
es muy útil cuando el volumen de la mis- 
ma es elevado, ya que cualquier modifi- 
cación en esas condiciones supondría 
tiempo de recalculación. Se recomienda, 
portanto, desconectar RECALCULAR y co- 
nectarlo cuando todos los datos estén in- 
troducidos. 

En este comando se encuentra tam- 
bién la posibilidad de realizar iteraciones 
y poner alarmas para situaciones inde- 
seadas. 

PROTEG. Se utiliza para proteger las 
celdas. Una celda protegida no puede 
ser modificada. Se recomienda utilizarlo 
con las fórmulas, una vez comprobado y 
verificado su funcionamiento, para evitar 
que por un error se pierdan. 

QUITAR. Su misión es eliminar la celda 
o rango de celdas especificado, es por 
ello un comando algo peligroso. 

REPLICAR. Permite copiar el contenido 
de una celda/s a otra/s y copiar en ver- 
tical u horizontal el contenido de una cel- 
da. Es muy útil para las fórmulas. 

Como ejemplo vamos a copiar las lí- 
neas de guiones para completarlas y las 
fórmulas de diferencia. Introducimos las 
fórmulas de total. 


E 
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SALIR. Se utiliza para abandonar el Mul- 
tiplán. Antes de salir pregunta si está se- 
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guro con la intención de que si hay infor- 
mación nueva sin almacenar esta no se 
pierda. 


TRANSF. Con diferentes opciones, nos 
ofrece la posibilidad de almacenar la 
hoja de trabajo en el disco, cargar una 
hoja ya existente en él o almacenarlo 
como un fichero estándar. 


VALOR. Se utiliza para dar valores nu- 
méricos a las celdas. Si no damos ningún 
comando y directamente escribimos un 
número, Multiplán entiende que quere- 


mos dar valor a la celda activa asumien- 
do el comando. 

XTERNO. Se utiliza para transferir datos 
de y a otros programas. 

Queda terminada la exposición de los 
comandos, cuyo funcionamiento, como 
puede verse, es bastante sencillo. Com- 
pruebe su funcionamiento e introduzca 
ejemplos, es el mejor modo de familiari- 
zarse con un programa. Multiplán no sólo 
es una hoja de cálculo de fácil manejo, 
es, además, una hoja potente y versátil, 
con posibilidades en cualquier campo. 


PASCAL 


Tipos 
estructurados 
de datos 


ODOS los tipos de da- 
tos vistos hasta el mo- 
mento sirven para 
manejar datos sim- 
ples: una variable de 
tipo INTEGER sólo pue- 
de tomar un valor en 
un momento dado, y 
lo mismo sucede con los tipos CHAR, Día- 
DelaSemana y los demás que conoce- 
mos. 

Sin embargo, nos podría interesar guar- 
dar en una única variable el peso, la 
edad, la estatura y el nombre de una per- 
sona, o guardar en una sola variable las 


program Notas; 


var 


Suma, Media, 


begin 


readln (Notal); 
readln (Nota2); 
readin (Nota3); 


(kx Calculamos 
Suma:= 0.0; 


Notal, Nota2, Nota3, 
Maxima : real; 


writeln (* Introduzca las notas:”); 


la suma: *X) 


notas del examen de Química de todo un 
grupo de alumnos, etc. 

En PASCAL se pueden definir tipos de 
datos que a su vez se componen de otros 
tipos, para así poder tratar con varios va- 
lores a la vez; son los llamados TIPOS ES- 
TRUCTURADOS. Vamos a ver a continua- 
ción el más común de ellos, el tipo ARRAY 
o tabla. 


El tipo ARRAY 


Supongamos por un momento que que- 
remos obtener la media de las notas de 
un examen y posteriormente obtener la 
nota más alta; primero deberíamos su- 
marlas todas y dividir el resultado por el 
número de notas. Haríamos: 


Suma:= Suma + Notal; 
Suma:= Suma + Nota2; 
Suma:= Suma + Nota3; 
(Xx Obtenemos la media: *) 
Media:= Suma / 3.0; 
writeln (”La nota media es” ,Media:6:2); 


(kx Ahora obtenemos la nota máxima %*) 
Maxima:= 0.0; 

IF Notal > Maxima then Maxima:= Notal; 

IF Nota2 > Maxima then Maxima:= Nota2; 

IF Nota > Maxima then Maxima:= Nota3; 
writeln (*La nota más alta es” ,Maxima:6:2); 
end. 


3 PASCAL 


Es fácil imaginar cómo sería este pro- 
grama para calcular la media, no de 
tres, sino de cien notas. Si se pudiesen 
guardar todas en memoria como un gru- 
po y no cada una con su propia variable 
el programa sería mucho más sencillo. 

Las variables de tipo ARRAY permiten 
guardar en una sola de ellas muchos da- 
tos del mismo tipo. Es como si tuviésemos 
una tabla con muchos valores registra- 
dos y para escoger uno de ellos dijéra- 
mos: «dame el primer valor de la tabla», 
o el quinto, o el tercero, etc. 

Para utilizar un elemento en concreto 
de la tabla se necesita, como es lógico, 
indicar cuál de ellos es, y esto se hace 
por medio de lo que se denomina INDICE. 

Este índice podría ser un valor de tipo 
INTEGER, con lo que podríamos decir algo 
como «Guarda esto en el elemento nú- 
mero 5 de la tabla» o «Presenta en pan- 
talla el elemento número 2». 

Por tanto, al definir una variable del 
tipo ARRAY hay que indicar dos cosas: 


— Entre qué valores puede estar com- 
prendido el indice; en otras palabras, el 
subrango al que pertenece éste. 


— De qué tipo de elementos consta la 
tabla; podría ser una tabla de números 
enteros o reales, de caracteres, de varia- 
bles del tipo DiaDeLaSemana... 


Para ello se escribe en primer lugar la 
palabra reservada ARRAY seguida del sub- 
rango al que corresponda el índice 
puesto entre corchetes; tras ello se escri- 
be la palabra reservada OF seguida del 
tipo correspondiente a los elementos de 
la tabla. Por ejemplo: 


var Notas: array (1..100) of integer; 


así, la variable Notas sería una tabla de 
números de tipo INTEGER; los elementos 
de la tabla se escogerían indicándolo 
con un índice que podría estar compren- 
dido entre 1 y 100. De esta manera, ten- 
dríamos el elemento número 1 de la ta- 
bla, el 2, etc., hasta el 100, osea, 100 ele- 
mentos en total. 

Como hemos visto en otras ocasiones, 
puede ser más conveniente no definir la 
variable sobre la marcha y escribir: 


type 

Notas...t = array (1..100) of integer; 
var 

NotasClase 1, NotasClase2: Notas....t; 


o, incluso: 


type 
Indice...t = 1..100; 
Notas.._t = array (Indice.._+) of inte- 
ger; 
var 
NotasClase 1, NotasClase2: Notas....t; 


Para indicar el elemento de la tabla 
que se desea utilizar se escribe el nom- 
bre de ésta seguido de una constante, 
variable o expresión que proporcione el 
valor del índice, puesta entre corchetes: 


(" Escribe el doble del ”) 
(" elemento 4 de la tabla: *) 


write (Notas(1) * 2); 


(" Guarda 7 en el elemento *) 
(" 100 de la tabla: *) 


Notas (50 * 2): 7; 


Los elementos así especificados son 
del tipo constitutivo del ARRAY; en el 
ejemplo serían, pues, del tipo INTEGER y 
por tanto se podrían utilizar exactamen- 
te igual que cualquier otra variable INTE- 
GER. 

Si nuestro ordenador no dispone de los 
corchetes en su juego de caracteres, se 
pueden utilizar en su lugar las parejas 


(y .): 


Notas (.5.):= 3; 


No se pueden comparar variables de 
tipo ARRAY entre sí, pues no tendría sen- 
tido, ni hacer operaciones con ellas to- 
madas en su conjunto. La única opera- 


ción posible con todos los elementos de 
un ARRAY a la vez es la asignación: 


NotasClase 1:= NotasClase2; 


esto guardaría todos los valores de la ta- 
bla NotasClase2 en la tabla NotasClase 1, 
es decir, el elemento 1 de NotasClase2 
en el 1 de NotasClase1, el 2 en el 2, etc. 

Hay que hacer notar que el número de 
elementos de la tabla queda definido 
por el subrango del índice, que es fijo. Si 
al escribir el programa especificamos, 
por ejemplo, 21..30, la tabla tendrá 10 
elementos y esto no podrá ser cambiado 
durante la ejecución del programa. 

Si quisiéramos preparar el programa 
Notas para funcionar con una tabla en lu- 


program NotasMejor; 


const 
Tope= 100; 


type 
Indice_t = 1..Tope; 
Notas_t 


= array [Indice_tl of real; 


gar de con una variable distinta para 
cada nota, pondríamos en principio: 


writeln (*Introduzca las notas:”); 
readin (Notas[( 1)); 
readin (Notas(2)) 
readin (Notas(3 


con lo que, ciertamente, se gana poco. 
Sin embargo, como el índice puede ser 
una variable, el paquete de instruccio- 
nes READLN se puede sustituir por un bu- 
cle FOR en que la variable de control se 
utilice como índice, y lo mismo sucede 
para las demás instrucciones que se repi- 
ten. 

Estamos ya en condiciones de hacer 
un programa de medias mejorado; 


(x Como mucho podrá haber 100 notas *) 


(k Las notas pueden tener decimales, de ahí el tipo REAL x) 


var 
Notas 3: Notas_t; 
Suma, Media, Maxima : real; 
Indice, Total : Indice_t; 


begin 


writeln (*El máximo número de notas es ”,Tope); 
write (*Cuantas notas ? ”); readin (Total); 


(Xx Vamos a leer las notas tecleadas %*X) 


for Indice:= 1 to Total do 
begin 


write (*Nota número ”*,Indice,”? = ?); 


readln (Notas[Indicel) 


(X* Como un REAL se puede leer de teclado,  X) 


(X los elementos de NOTAS también. 


end; 


Suma:= 0.0; 


x) 


(k Vamos acumulando notas en Suma: X) 
for Indice:= 1 to Total do Suma:= Suma + Notas [Indice]; 


(x Ahora calculamos la media X) 
Media:= Suma / Total; 


writeln (*"La nota media es”, ,Media:6:2); 


(Xx Ahora obtenemos la nota máxima %) 


Maxima:= 0.03 
for Indice:= 1 to Total do 


if Notas [Indice > Maxima then Maxima(*por ahoraXx):= Notas [Indicel; 
writeln (”La nota más alta es”, ,Maxima:6:2); 


end. 


3 PASCAL 


Como se ve, en lugar de utilizar una ins- 
trucción para cada nota se han utilizado 
bucles FOR, pues las instrucciones se re- 
piten un número fijo de veces. Además, 
se ha descrito el subrango del índice pre- 
viamente para así no tener que repetirlo 
con Indice y Total. Nótese también dón- 
de se ha puesto uno de los comentarios: 
recordemos que se pueden poner co- 


program MasterMind; 


type 


Combi_t = array [1..4] of integer; 


var 


mentarios en cualquier lugar en que pue- 
da ir un espacio en blanco. 

Para terminar por ahora, vamos a mo- 
dificar el programa del Master Mind que 
hicimos en el número anterior utilizando 
tablas de cuatro enteros para guardar 
las combinaciones y aprovechando las 
ventajas que esto nos brinda para hacer 
el análisis de una manera más elegante: 


Aleatorio : real; 

Secreta, (k Para guardar la clave secreta X*X) 

Intento: (Xx Para guardar cada intento x) 
Combi _t; 

Muertos, 

Heridos, 

Limite, 

Indice : integer; 

Letra 2 char; 

AAA mn 


procedure ArrancahAzar y 


(kx Pide el primer número de la serie aleatoria X) 


var Ok: boolean; 
begin 


writeln (*Teclee un número entre O y 1, ambos exclusive.”); 


repeat 
readln (Aleatorio); 


Ok:= (0.0 < Aleatorio) and (Aleatorio < 1.0); 


if not Ok then writeln (*No vale. 


until Ok 


Repita.”) 


function Azar (Inf,Sup: integer): integer; 
(x proporciona un número entero aleatorio kx 


x entre Inf y Sup, ambos inclusive 


var A: real; 
begin 


Aleatorio:= frac (Aleatorio xk 997); 
Azar:= Inf + trunc (Aleatorio Xx 


end; 


procedure Analizar; 


(Xx Compara Secreta con Intento y da 


(Xx ¡OJO! x) 


(Sup -— Inf + 1)) 


* el valor adecuado a Muertos y Heridos. %) 


var 
Copia: Combi_t; 
1, J : integer; 
begin 


(X Saca una copia de la clave secreta: 1%) 


Copia:= Secreta; 


Muertos:= 0; 
for l:z:= 1 to 4 do 


if Intento [11 = Copia [11] then 


begin 
Muertos:= Muertos + 1; 
Intento [1Il:= -1; 
Copia CIJ :3:= -2 
end; 


Heridos:= 0; 
for lI:z= 1 to 4 do 


(X mira las 4 cifras de Intento: Xx) 


for J:= 1 to 4 do (%* compara Intento [1] con Copia Xx) 


if Intento [11 = Copia [J1 then 


begin 


Heridos:= Heridos + 1; 


Intento [Il:= -1; 


Copia [JJ 
end 


:= -2 


AAA 


end; 


—=------4) 


A 


begin 
Arrancahzar; 


write (”*Números del 1 al...”); 


readin (Limite); 


(X repetir partidas %) 
(k Primero, inventarse una clave: %X) 
for Indice:= 1 to 4 do Secreta [Indicel:= Azar (1, Limite); 


ClrScr; (%*k o PAGE, para borrar la pantalla *) 
writeln ("Tras cada Cifra, pulse Intro.”); 


repeat 
write (*Clave:z ?”)3 


(% Pedir y analizar combinaciones: 


for Indice:= 1 to 4 do read (Intento [IindicelJ); 


Analizar; 


writeln (” 
until Muertos = 4; 


m=” Muertos, ” 


h=" ,Heridos) 


write ("¿ Desea otra partida 7? (S/N) 


readlin (Letra) 


until (Letra = *N”) or (Letra = *n”); 


AA 


writeln (*Adiós.”) 


Compare el lector este programa con 
la versión anterior. Al hacerse la búsque- 
da de heridos utilizando un bucle FOR 
dentro de otro, se compara Copia(1) con 
Intento(1), Copia(2) con Intento(2), etc., 
lo cual es incorrecto; no obstante, si se 
diera alguna igualdad entre ellos, ya se 


o *) 


habría detectado al mirarse los muertos, 
por lo que estarían «tachados» y nunca 
podrían ser iguales al mirarse los heridos, 
así que no pasa nada. 

Como ejercicio, pruebe el lector a ha- 
cer variable el número de cifras con que 
se juega en lugar de que sea siempre 
cuatro. 


Utilización 
de la 
biblioteca 

del C: funciones 
de entrada salida 


| deseamos utilizar 
una función de la bi- 
blioteca en nuestro 
programa fuente, de- 
beremos emplear la 
línea «include 
<stdio.h >» 

+ Include <stdio.h> 
se emplea para que todo archivo fuente 
pueda utilizar las funciones de la biblio- 
teca. El fichero <studi.h> contiene ma- 
cros y variables utilizadas por la biblio- 
teca. 


O Función para abrir ficheros 


La función utilizada para la apertura de 
ficheros es «fopen()»: 


FILE “topenO 


La función «fopen()» devolverá un valor 
«NULL» en caso de que le sea imposible 
abrir el fichero. 


'O Más funciones de E/S 


Si tenemos que leer un carácter del dis- 
positivo de entrada lo haremos a traves 
de la función: 


getc() 


Si deseamos enviar un carácter a un fi- 
chero apuntado por el puntero «pun- 
tarch», deberemos emplear «putc()» de 
la siguiente forma: 


putch (ch, puntarch) 


OTROS LENGUAJES 


LENGUAJE C: FUNCIONES 


Tanto «get()»» como «put()» se utilizan 
solo para ficheros de texto. 

Para cerrar un fichero utilizaremos la 
función: 


fclose() 


Para cerrar el fichero apuntado por 
«puntarch» escribiremos: 


fclose (puntarch); 


O Ficheros estándar 


Los tres ficheros estándar en C son: 
«Stdin», «stdout», «stderr» 


Los tres ficheros son abiertos antes de 
«llamarse» a la función «main()». Estos tres 
archivos se denominan «entrada están- 
dar», «salida estándar» y «salida estándar 
errores». 


(m Salidas y entradas 
con formatos 


Las funciones básicas para la salida y 
entrada con formatos son: 


printf() y scanf() 


La función «printf()» nos permite conver- 
tir, dar formato e imprimir en el dispositi- 
vo de salida estándar una serie de argu- 
mentos definidos en la función, bajo el 
control del «parámetro de control». 

La sintaxis utilizada será: 

printf (argumento de control, argumen- 
to 1, argumento 2,...) 


El parámetro de control establece dos 
tipos de salida: por una parte, los carac- 
teres ordinarios que simplemente se co- 
pian a la salida estándar y, por otra, las 
«especificaciones de conversión» que 
origina la impresión de los argumentos. 


GLO y CULTURAL y 


